home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / Chip_2002-02_cd1.bin / sharewar / TopTen / kubik.exe / {app} / Scripts / Eurotel.sms next >
Text File  |  2001-12-26  |  2KB  |  43 lines

  1. # Skript pro SMS branu Eurotel
  2. # Verze 1.6
  3.  
  4. Param
  5.   Version 1.6
  6.   CountryCode 420
  7.   Prefixes 601;602;606;607;723;724;728
  8.   FirstMsgSize 150-E
  9.   OtherMsgSize 150
  10.   MsgCount 5
  11.   MsgTime 30  
  12. End
  13.  
  14. Ident
  15.   On n_email=\%MyEmail%
  16.   Off n_email=
  17. End
  18.  
  19. Flash
  20.   On \%FindTextBetween("<b>Zp∙sob doruΦenφ</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\ size=\34\1\34\>", 150, 1)%=show
  21.   Off \%FindTextBetween("<b>Zp∙sob doruΦenφ</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\ size=\34\1\34\>", 150, 1)%=sms
  22. End
  23.  
  24. GetPage
  25.   URL http://www2.eurotel.cz/sms/index.html?n_pagestyle=new
  26.   Message NaΦφtßm ·vodnφ strßnku.
  27. End
  28.  
  29. PostPage
  30.   URL http://www2.eurotel.cz/sms/index.html
  31.   Data \%FindTextBetween("<b>P°edvolba</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\\32\size=\34\1\34\>", 150, 1)%=\%Prefix%&n_number=\%PhoneNP%&\%Ident%&\%Flash%&\%FindTextBetween("<textarea cols=\34\50\34\ rows=\34\6\34\ name=\34\", "\34\ onBlur=\34\countit(this.form, 0)\34\", 100, 1)%=\%Message%&\%FindTextBetween("<input type=\34\submit\34\ name=\34\", "\34\ value=\34\Odeslat zprßvu\34\", 150, 1)%=Odeslat+zpr%E1vu
  32.   Referer http://www2.eurotel.cz/sms/index.html
  33.   Message Posφlßm zprßvu.
  34. End
  35.  
  36. Msg
  37.   if "ipravena a" Print "Zprßva je p°ipravena k odeslßnφ." Success
  38.   if "na na SMS centrum." Print "Zprßva byla odeslßna." Success
  39.   if "budete moci odeslat" Error "Zprßva bude odeslßna pozd∞ji." Queue
  40.   if "ete, prosφm, zprßvu znovu.." Error "P°ipojenφ vyprÜelo, zprßva bude odeslßna znovu." Retry
  41. End
  42.  
  43.